home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / System / Pause for < prev    next >
Encoding:
Text File  |  1999-03-04  |  454 b   |  31 lines  |  [TEXT/ToyS]
  1. global gasQuit
  2.  
  3.  
  4. on run
  5.     set gasQuit to false
  6.     
  7.     repeat while not gasQuit
  8.         pause for 600 with seconds timing
  9.         ShowMessage("10 minute loop…")
  10.     end repeat
  11. end run
  12.  
  13.  
  14. on quit
  15.     set gasQuit to true
  16.     ShowMessage("You quit me!")
  17.     continue quit
  18. end quit
  19.  
  20.  
  21. on eep()
  22.     ShowMessage("You eep'd me!")
  23. end eep
  24.  
  25.  
  26. on ShowMessage(msg)
  27.     set iw to display info titled "Ouch!" message msg
  28.     beep
  29.     pause for 2 with seconds timing
  30.     display info iw with disposal
  31. end ShowMessage